home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / simple / ca.f next >
Text File  |  1993-03-23  |  678b  |  32 lines
  1.       program host_ca
  2.  
  3. c     N : size of automata
  4. c     M : number of iterations
  5.       integer N, M
  6.       parameter (N=78)
  7.       parameter (M=100)
  8.  
  9.       logical*1 feld (1:N)
  10.       logical*1 hfeld (1:N)
  11.       logical*1 host_feld (1:N)
  12. CMF$  Layout host_feld (:host)
  13.       character s (1:N)
  14. CMF$  Layout s (:host)
  15.       integer i, k
  16.  
  17.       feld = .false.
  18.       feld (N/2) = .true.
  19.  
  20.       do k = 1,M
  21.          host_feld = feld        
  22.          hfeld = cshift (feld,1,-1)
  23.          feld = cshift (feld, 1, 1)
  24.          feld = feld .ne. hfeld 
  25.          do i=1,N
  26.             s(i) = ' '
  27.             if (host_feld(i)) s(i) = '*'
  28.          end do
  29.          print *, s
  30.       end do
  31.       end
  32.